home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / scrsave / src / scrsave.bas
BASIC Source File  |  1995-08-02  |  3KB  |  49 lines
  1. 10 CLEAR ,,,,,400*1024:O=0:P=0:L=0:RANDOMIZE TIME:CLS:DEF FONT"システム   12ﾄﾞｯﾄ":SCREEN 1,0,3,0:MOUSE 0:MX=MOUSE(0):MY=MOUSE(1):'DIM EUP%(300000)
  2. 20 'LOAD@"SCRSAVE.EUP",EUP%:PLAY@ EUP%,1
  3. 30 LINE(200,140)-(640,480),PSET,0,BF:I=0:P=0:O=0:L=0
  4. 40 GOSUB *BLINK:LINE(200,440)-(480,470),PSET,7,B:SYMBOL(320,450),"０％",.75!,.75!,2':FOR I=201 TO 293:LINE(201,441)-(I,469),PSET,5,BF:WAIT 1:NEXT
  5. 50 SCREEN 1,0:IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END 
  6. 60 SYMBOL(550,10),"Writing Oval",.75!,.75!,5:SCREEN 1,1
  7. 70 TIME$="00:00:00"
  8. 80 WHILE TIME$=<"00:00:03"
  9. 90 CIRCLE(INT(RND*640),INT(RND*480)),RND*50,INT(RND*7+1),RND*3,,,F:O=O+1
  10. 100 IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END 
  11. 110 WEND
  12. 120 LINE (0,0)-(640,480),PSET,0,BF:SCREEN 1,0:LINE(550,10)-(640,30),PSET,0,BF
  13. 130 LINE(240,450)-(390,469),PSET,0,BF:FOR I=201 TO 293:LINE(201,441)-(I,469),PSET,5,BF:SYMBOL(310,450),"３０％",.75!,.75!,2:WAIT 1:NEXT:GOSUB *BLINK
  14. 140 IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END 
  15. 150 SYMBOL(550,10),"Writing Line",.75!,.75!,5:SCREEN 1,1
  16. 160 TIME$="00:00:00"
  17. 170 WHILE TIME$=<"00:00:03"
  18. 180 LINE(INT(RND*640),INT(RND*480))-(INT(RND*640),INT(RND*480)),PSET,INT(RND*7+1):L=L+1
  19. 190 IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END 
  20. 200 WEND
  21. 210 LINE (0,0)-(640,480),PSET,0,BF:SCREEN 1,0:LINE(550,10)-(640,30),PSET,0,BF
  22. 220 LINE(240,450)-(390,469),PSET,0,BF:FOR I=294 TO 386:LINE(201,441)-(I,469),PSET,5,BF:SYMBOL(310,450),"６０％",.75!,.75!,2:WAIT 1:NEXT:GOSUB *BLINK
  23. 230 IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END 
  24. 240 SYMBOL(550,10),"Painting Screen ",.75!,.75!,5:SCREEN 1,1
  25. 250 TIME$="00:00:00"
  26. 260 WHILE TIME$=<"00:00:03"
  27. 270 PAINT(320,240),INT(RND*7):P=P+1
  28. 280 IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END 
  29. 290 WEND
  30. 300 LINE (0,0)-(640,480),PSET,0,BF:SCREEN 1,0:LINE(550,10)-(640,30),PSET,0,BF
  31. 310 LINE(240,450)-(390,469),PSET,0,BF:FOR I=387 TO 479:LINE(201,441)-(I,469),PSET,5,BF:SYMBOL(300,450),"１００％",.75!,.75!,2:WAIT 1:NEXT
  32. 320 SYMBOL(200,140),"１６色グラフィックスクリーンセーバー",.75!,.75!,6
  33. 330 SYMBOL(240,180),"３秒間にこなせた数",.75!,.75!,6
  34. 340 SYMBOL(225,200),"Writing Oval     "+AKCNV$(STR$(O))+"個",.75!,.75!,6
  35. 350 SYMBOL(225,220),"Writing Line     "+AKCNV$(STR$(L))+"本",.75!,.75!,6
  36. 360 SYMBOL(225,240),"Painting Screen  "+AKCNV$(STR$(P))+"回",.75!,.75!,6
  37. 370 SYMBOL(225,260),"総合得点         "+AKCNV$(STR$(O+L+P))+"点",.75!,.75!,6
  38. 380 SYMBOL(225,280),"初代比:"+AKCNV$(RIGHT$(STR$(INT(((O+L+P)/501*100)+.5!)),LEN(STR$(INT((O+L+P)/501*100)))-1))+"％",.75!,.75!,6
  39. 390 SYMBOL(250,300),"（約"+AKCNV$(RIGHT$(STR$(INT(((O+L+P)/501)+.5!)),LEN(STR$(INT(((O+L+P)/501)+.5!)))-1))+"倍）",.75!,.75!,6
  40. 400 IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END ELSE WAIT 300:GOTO 30
  41. 410 *BLINK:FOR I=0 TO 5:SYMBOL(200,140),"１６色グラフィックスクリーンセーバー",.75!,.75!,6
  42. 420 'SYMBOL(240,160),"ＴＯＷＮＳ君頑張れ！",.75!,.75!,6:WAIT 10
  43. 430 IF MOUSE(0)=>MX+10 OR MOUSE(1)=>MY+10 THEN *END
  44. 440 WAIT 10:LINE(200,140)-(640,200),PSET,0,BF:WAIT 10:NEXT:RETURN
  45. 450 *END
  46. 460 CLS:SYMBOL(200,200),"16色スクリーンセーバー  V1.0L10 by くど猫",.75!,.75!,6 
  47. 470 SYMBOL(240,220),"ＴＯＷＮＳ－ＯＳに戻ります...",.75!,.75!,6
  48. 480 END
  49.